5 POKE56,127:CLR:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164
7 POKE53280,11:POKE53281,11
10 FORI=1TO6
20 READF(I):NEXT
30 DATA.73,.47,.34,.23,.065,.033
40 T=1.5708:Q=3.14159265:Q2=6.2831853:VL=.99999999
52 FORI=1TO6
54 READS(I),E(I),A(I),J(I),W(I)
56 NEXT
58 DATA87.969,.2056,72,77.1,37.58
60 DATA224.701,.0068,134.539,131.3,140.5
62 DATA365.256,.0167,186,102.6,-3
64 DATA686.980,.0934,283.407,335.7,289
66 DATA4332.125,.0478,967.641,13.6,1604
68 DATA10825.863,.0555,1775.966,95.5,2115
110 PRINT"[155][147][212]HIS PROGRAM WILL SHOW THE CONFIGURATION
120 [153]"OF THE PLANETS ON ANY DATE YOU CHOOSE
130 PRINT"BETWEEN [205]ARCH 1900 AND [196]ECEMBER 1999.
132 [153],,"PRINT#(null)TEVEN STR$ARNOLD
134 PRINT,,"[208].[207]. [194]OX 201
136 [153],,"ATNLEXANDRA, (null)TAGO
138 PRINT,,"[206]EW [218]EALAND
140 [133]"ONONONONONONONONONONONONONONONLISTYEARCLOSECLOSECLOSECMDCMDCMD";IY$
150 IL[178][195](IY$):[139]IL[178]4[176]IL[178]2[167]170
160 [153]"ON                         ":[153]"ONONONON";:[137]140
170 [139]IL[178]4[175][200](IY$,2)[179][177]"19"[167]160
180 [139]IY$[179]"0"[176]IY$[177]"9"[167]160
190 IY[178][197](IY$):[139]IY[177]100[167]IY[178]IY[171]1900
200 [133]"MONTHCLOSECLOSECLOSECMDCMDCMD";IM$
210 IM[178][197](IM$):[139]IM[177]0[175]IM[179]13[175]IM[178][181](IM)[167]230
220 [153]"ON                              ":[153]"ONONON";:[137]200
230 [133]"DAYCLOSECLOSECLOSECMDCMDCMD";ID$
240 ID[178][197](ID$):[139]ID[177]0[175]ID[179]32[175]ID[178][181](ID)[167]260
250 [153]"ON                               ":[153]"ONONON";:[137]230
260 DE[178]ID[170][181](365.25[172](IY[170](IM[179]3))[170]0.1)[170][181](30.6[172](IM[171]12[172](IM[179]3))[171]31.35)[171]29220
270 [153]"LISTLOAD(null)HICH PLANETS DO YOU WANT TO SEE ?
280 PRINT"1.  [205]ERCURY
290 [153]"2.  (null)ERCURY, (null)ENUS
300 PRINT"3.  [205]ERCURY, [214]ENUS, [197]ARTH
310 [153]"4.  (null)ERCURY, (null)ENUS, VALARTH, (null)ARS
320 PRINT"5.  [197]ARTH, [205]ARS, [202]UPITER
330 [153]"6.  VALARTH, (null)ARS, MID$UPITER, (null)ATURN
340 POKE198,0:WAIT198,1:GETID$:IFID$<"1"ORID$>"6"THEN340
350 JJ=VAL(ID$)
360 POKE53281,15:PRINT"[147][142][152]";:POKE53281,11
370 POKE33267,46:POKE55795,1
380 PRINTTAB(12)"GEMINI"TAB(21)"TAURUS
382 [153]"  CANCER"[163]32)"ARIES
383 PRINT"LEO"TAB(36)"PISC
385 [153]"VIRG"[163]36)"AQUA
387 PRINT"   LIBRA"TAB(32)"CAPRI
390 [153]""[163]12)"SCORPI"[163]21)"SAGITT";
410 F[178]F(JJ)
500 ID[178]1[170]2[172][181](JJ[173]4.5)
520 [129]I[178]ID[164]JJ
530 Z[178]DE[170]W(I)
540 J[178]J(I)[172]Q[173]180
550 P[178]A(I)[172](1[171]E(I)[172]E(I))[173]2
560 K[178]1[173]E(I)
570 U[178]P[173]E(I)
580 D[178]Z[171][181](Z[173]S(I))[172]S(I)
590 B[178]Q[171](D[173]S(I)[172]Q2)
600 RV[178]A(I)[171](P[173](1[170]E(I)[172][190](B)))
610 V[178]U[173]RV[171]K
620 [139]V[177][178]1[167]V[178]VL
630 [139]V[179][178][171]1[167]V[178][171]VL
640 V1[178][171][193](V[173][186]([171]V[172]V[170]1))[170]T
650 [139]D[177]S(I)[173]2[167]V1[178]Q2[171]V1
660 V1[178]V1[170]J
670 X[178][190](V1)[172]RV[172]F:Y[178][191](V1)[172]RV[172]F[172].75
680 [141]710
690 [130]
700 [137]340
710 X[178][181](X[170].5):Y[178][181](Y[170].5)
720 L[178]32768[170][181]((X[170]39)[173]2)[170][181]((25[171]Y)[173]2)[172]40
730 C[178]1
740 [139]X[173]2[178][181](X[173]2)[167]C[178]2
750 [139]Y[173]2[178][181](Y[173]2)[167]C[178]C[170]2
760 Z[178][194](L)
770 [145]C[141]790,890,990,1090
780 [142]
790 [139]Z[178]124[167][151]L,226:[142]
800 [139]Z[178]123[167][151]L,97:[142]
810 [139]Z[178]108[167][151]L,127:[142]
880 [151]L,126:[142]
890 [139]Z[178]126[167][151]L,226:[142]
900 [139]Z[178]123[167][151]L,255:[142]
910 [139]Z[178]108[167][151]L,225:[142]
980 [151]L,124:[142]
990 [139]Z[178]126[167][151]L,97:[142]
1000 [139]Z[178]124[167][151]L,255:[142]
1010 [139]Z[178]108[167][151]L,98:[142]
1080 [151]L,123:[142]
1090 [139]Z[178]126[167][151]L,127:[142]
1110 [139]Z[178]124[167][151]L,225:[142]
1120 [139]Z[178]123[167][151]L,98:[142]
1180 [151]L,108:[142]